﻿Public Partial Class Formulario_web18
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '3. Creamos el objeto excepcion y guardamos el contenido de la variable de sesion
        Dim exError As Exception = Session("exError")

        '4. Mostramos en la pagina la descripcion del error (no es recomendable... solo lo hacemos a modo de ejemplo. Si grabamos en la base de datos el error no será necesario mostrar la descripcion del error
        Me.lblDescripcion.Text = exError.Message

        '5. Instancio el objeto de la capa de datos para grabar el error
        Dim oError As New CapaNegocio.Errores

        '6. Grabo el error enviando como parámetro el atributo Message del error, el cual contiene el mensaje de error
        oError.Grabar(exError.Message)
    End Sub

End Class